home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_95-08_1995_-_de_Side_B.d64 / showsquare .asc < prev    next >
Text File  |  2023-02-26  |  2KB  |  103 lines
  1. ;---------------------------------------
  2.  
  3. ; set-square-test
  4.  
  5. ;---------------------------------------
  6.          *= $0900
  7.  
  8. screen   = $0400
  9. farbram  = $d800
  10. bitmap   = $2000
  11. square   = $01
  12. sbasis   = $e000+(square*40)
  13.  
  14.          lda #<bitmap   ;bitmap-install.
  15.          ldx #>bitmap
  16.          sta $fa
  17.          stx $fb
  18.          ldx #$1f
  19.          ldy #$00
  20.          tya
  21. init00   sta ($fa),y
  22.          iny
  23.          bne init00
  24.          inc $fb
  25.          dex
  26.          bpl init00
  27.          lda #<screen       ;screen- und
  28.          ldx #>screen
  29.          sta $fa
  30.          stx $fb
  31.          lda #<farbram  ;farbram-install
  32.          ldx #>farbram
  33.          sta $fc
  34.          stx $fd
  35.          ldx #$03
  36.          ldy #$00
  37.          tya
  38. init01   sta ($fa),y
  39.          sta ($fc),y
  40.          iny
  41.          bne init01
  42.          inc $fb
  43.          inc $fd
  44.          dex
  45.          bpl init01
  46.  
  47.          lda $dd00           ;grafik ein
  48.          and %11111100
  49.          ora %00000000
  50.          sta $dd00
  51.          lda #$3b
  52.          sta $d011
  53.          lda #$18
  54.          sta $d016
  55.          sta $d018
  56.          lda #$00
  57.          sta $d020
  58.          sta $d021
  59.  
  60.          sei            ;square anzeigen
  61.          lda #$35
  62.          sta $01
  63.          ldx #$07                ;bitmap
  64. loop
  65.          lda sbasis+(0*10),x
  66.          sta bitmap+(0*$0140)+(0*8),x
  67.          lda sbasis+(1*10),x
  68.          sta bitmap+(0*$0140)+(1*8),x
  69.          lda sbasis+(2*10),x
  70.          sta bitmap+(1*$0140)+(0*8),x
  71.          lda sbasis+(3*10),x
  72.          sta bitmap+(1*$0140)+(1*8),x
  73.          dex
  74.          bpl loop
  75.                                  ;screen
  76.          lda sbasis+(0*10)+8
  77.          sta screen+(0*40)+0
  78.          lda sbasis+(1*10)+8
  79.          sta screen+(0*40)+1
  80.          lda sbasis+(2*10)+8
  81.          sta screen+(1*40)+0
  82.          lda sbasis+(3*10)+8
  83.          sta screen+(1*40)+1
  84.          lda sbasis+(0*10)+9    ;farbram
  85.          sta farbram+(0*40)+0
  86.          lda sbasis+(1*10)+9
  87.          sta farbram+(0*40)+1
  88.          lda sbasis+(2*10)+9
  89.          sta farbram+(1*40)+0
  90.          lda sbasis+(3*10)+9
  91.          sta farbram+(1*40)+1
  92.          lda #$37
  93.          sta $01
  94.          cli
  95.  
  96.          lda #$00      ;auf taste warten
  97.          sta 198
  98. taste    jsr $ffe4
  99.          beq taste
  100.          jsr $ff81           ;grafik aus
  101.          rts                    ;zurueck
  102.  
  103.